﻿Public Class FrmBitacoras

    Private Sub FrmConsultarBitacoras_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        reportVacio.Visible = True

        reportEventos.Visible = False
        reportExcepciones.Visible = False

        'Me.pa_consultar_eventosTableAdapter.Fill(Me.GetFitDataSet.pa_consultar_eventos)
        'Me.pa_consultar_excepcionesTableAdapter.Fill(Me.GetFitDataSet.pa_consultar_excepciones)
        'Me.reportEventos.RefreshReport()
        'Me.reportExcepciones.RefreshReport()

    End Sub

    Private Sub btnEventos_Click(sender As Object, e As EventArgs) Handles btnEventos.Click
        If reportExcepciones.Visible = True Then
            reportExcepciones.Visible = False
        End If

        If reportVacio.Visible = True Then
            reportVacio.Visible = False
        End If

        reportEventos.Visible = True

    End Sub

    Private Sub btnExcepciones_Click(sender As Object, e As EventArgs) Handles btnExcepciones.Click
        If reportEventos.Visible = True Then
            reportEventos.Visible = False
        End If

        If reportVacio.Visible = True Then
            reportVacio.Visible = False
        End If

        reportExcepciones.Visible = True

    End Sub
End Class
